list.asp 环保时代家庭财务管理系统 EPffms v4.0 - ASP源码程序

www.gusucode.com > 环保时代家庭财务管理系统 EPffms v4.0 > 环保时代家庭财务管理系统 EPffms v4.0\code\eptimehome\diary\list.asp
    <!-- #include file="../conn.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<META http-equiv="Pragma" content="no-cache">
<META http-equiv="Cache-Control" content="no-cache, must-revalidate">
<META http-equiv="Expires" content="0">
<head>
<title></title>
<link href="../images/base.css" rel="stylesheet" type="text/css" />
</head>
<%If Request.QueryString("id")<>"" Then

set rs = server.CreateObject("adodb.recordset")    
rs.open "select * from Eptime_diary where ep_id="& request.QueryString("id"),conn,1,1
If rs("ep_ok")=0 Then
   If rs("ep_author")=CLng(request.Cookies("UserID")) Then
 Call list()  
   Else
  call showmessage("您无权查看!","index.asp?act=showlist")
   End If
ElseIf rs("ep_ok")=1 Then
Call list()
End if

%>


<%else%>
err

<%End If%>    

<%
  conn.close()
  set conn =Nothing
Sub list()  
%>

<body onkeydown="test();">
<!--当前导航-->
<script type="text/JavaScript">if(parent.$('admincpnav')) parent.$('admincpnav').innerHTML='首页&nbsp;&raquo;&nbsp;理财日记&nbsp;&raquo;&nbsp;查看日记';</script> 
    <table width="690" height="408" align="center"  cellpadding="0" cellspacing="0">
      <tr>
        <td height="24" colspan="5"><img src="../images/diary_3.jpg" width="690" height="24" /></td>
      </tr>
      <tr>
        <td width="33" height="327"><img src="../images/diary_5.jpg" width="33" height="327" /></td>
        <td width="293" valign="top" background="../images/diary_12.jpg"><table cellspacing="0" cellpadding="0">
            <tr>
              <td width="293" height="21" valign="bottom" background="../images/diary_6.jpg" align="center">&nbsp;<%=rs("ep_title")%></td>
            </tr>
            <tr>
              <td width="293" height="11"><img src="../images/diary_10.jpg" width="293" height="11" alt="" /></td>
            </tr>
            <tr>
              <td width="293" height="292" valign="top" background="../images/diary_12.jpg">

<textarea name="content" id="content"  cols="34" rows="17" class="diary_bg" onkeydown="igEsc();"><%=rs("ep_content")%></textarea>

</td>
            </tr>
        </table></td>
        <td width="30" rowspan="2"><img src="../images/diary_7.jpg" width="30" height="350" /></td>
        <td width="293" bgcolor="#FFFFFF"><div align="center"><img src="<%=diarypic%>" id="pic1" width="260" /></div>
        </td>
        <td width="41"><img src="../images/diary_9.jpg" width="41" height="327" /></td>
      </tr>
      <tr>
        <td height="23" colspan="2" background="../images/diary_14.jpg" style="text-align:center;color:#999;"></td>
        <td colspan="2" background="../images/diary_15.jpg" align="center">&nbsp;<%=rs("ep_Date")%></td>
      </tr>
      <tr>
        <td height="34" colspan="5"><img src="../images/diary_16.jpg" width="690" height="34" /></td>
      </tr>
    </table>
</body>
</html>

<!--
<script type="text/javascript">
    function pic(obj) {
        document.getElementById("pic1").src = 'http://user.jizhangla.com/diary/bg/a_' + obj + '.jpg';
        document.getElementById("pic1").alt = obj;
    }
    function SubmitData() {
    var _title = $("#txlTit").val();
    var _memo = $("#txlMemo").val();
    var _dt = $("#currentDt").val();
    var _passed = $("input[@name=passed]:checked").val();
    var _pic = document.getElementById('pic1').alt;
    var _json = { "title": _title, "memo": _memo, "dt": _dt, "passed": _passed, "pic": _pic };
    $.ajax({
        type: "POST",
        dataType: "html",
        url: "add.aspx?action=Add",
        data: _json,
        success: function(result) {
            if (result == "ok") {
                alert("操作成功！返回日记列表");
                window.location.href = 'index.aspx';
            }
            else
                ymPrompt.alert(result);
        }
    });
}
function igEsc() {
    if (window.event && window.event.keyCode == 27) {
        window.event.returnValue = false;
    }
}
function copytext() {
    var text1 = $("textarea").html();
    window.clipboardData.setData("Text", text1);
}
window.setInterval("copytext()", 60000);
</script>
-->
<%End Sub
Sub showmessage(LX_str,LX_address)
   Response.Write("<script>alert('"& LX_str &"');location.href='"& LX_address &"'</script>")
End Sub
%>